home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / net / LT_UNIX255.lha / Extras / jog.sh < prev    next >
Text File  |  1997-04-16  |  3KB  |  165 lines
  1. # CADASTRO DE PROGRAMAS DE AMIGA, by Cristian Robert Gallas.
  2. # 09/11/1994, Desenvolvido na versão 2.5.1, não roda em COLORS=2
  3.  
  4. a="";b="";c="";i=""
  5. _INICIO
  6. cls
  7. under on
  8. cup;centre CADASTRO DE PROGRAMAS DE AMIGA
  9. under off
  10. pos 25 6;echo "1 - Inclui        2 - Exclui"
  11. pos 25 8;echo "3 - Consulta      4 - Ordena"
  12. pos 25 10;echo "5 - Imprime       6 - Comando"
  13. pos 30 16;insert Qual opção: ,,6,p1,i0,,p0,i2
  14. attrib i
  15. if i=6
  16.   pos 15 16
  17.   insert "COMMAND: ",,40,p1,i0,,p0,i2
  18.   attrib i
  19.   ${i}
  20.   goto INICIO
  21. fi
  22. if i==""
  23.    echo
  24.    exit
  25. fi
  26. if i=1
  27.    goto INCLUI
  28. fi
  29. if i=2
  30.    goto EXCLUI
  31. fi
  32. if i=3
  33.    goto CONSULTA
  34. fi
  35. if i=4
  36.    goto ORDENA
  37. fi
  38. if i=5
  39.    goto IMPRIMI
  40. else
  41.    goto INICIO
  42. fi
  43. _INCLUI
  44. cls
  45. under on
  46. pos 0 2;centre "MODULO DE INCLUSÃO"
  47. under off
  48. pos 16 5;insert "Qual nome ....... : ",,29,p1,i0,,p0,i2
  49. attrib i
  50. if i==""
  51.    goto INICIO
  52. fi
  53. pos 16 7;insert "Quantos discos .. : ",,6,p1,i0,,p0,i2
  54. attrib a
  55. if a==""
  56.    goto INICIO
  57. fi
  58. pos 16 9;insert "Qual modo ....... : ",,6,p1,i0,,p0,i2
  59. attrib c
  60. if c==""
  61.    goto INICIO
  62. fi
  63. len -o a;attrib b
  64. b=b--" "
  65. if b=1
  66.    a=a++"        "
  67. else
  68.    a=a++"       "
  69. fi
  70. a=a++${c}
  71.  
  72. pos 0 13
  73. border -c " Aguarde atualização... "
  74. len -o i;attrib c
  75. b=43;b=b-${c};c=${b};b=""
  76. spc ${c};attrib b
  77. c=${path}
  78. echo "${i}${b}${a}" >> "${c}jog.lt"
  79. goto INCLUI
  80. _CONSULTA
  81. cls;under on
  82. pos 0 2
  83. centre "MODULO DE CONSULTA";under off
  84. pos 32 6;echo "1 - Individual"
  85. pos 32 8;echo "2 - Todos"
  86. pos 31 12;insert "Qual opção: ",,6,p1,i0,,p0,i2
  87. attrib i
  88. if i=1
  89.    goto INDIVIDUAL
  90. fi
  91. if i=2
  92.    goto TODOS
  93. else
  94.    goto INICIO
  95. fi
  96. _INDIVIDUAL
  97. pos 20 12;insert "Consultar ... : ",,29,p1,i0,,p0,i2
  98. attrib i
  99. if i==""
  100.    goto INICIO
  101. else
  102. cls
  103. echo "_________ PROGRAMA __________           __ DISCOS __ MODO __"
  104. echo
  105. a=${path}
  106.    grep ${a}jog.lt ${i}
  107.    echo
  108.    echo -a "Pressione [QUALQUER TECLA] ..."
  109.    wait key
  110.    goto INICIO
  111. fi
  112. _TODOS
  113. cls
  114. echo "_________ PROGRAMA __________           __ DISCOS __ MODO __"
  115. echo
  116. a=${path}
  117. pg ${a}jog.lt
  118. echo
  119. echo -a "Pressione [QUALQUER TECLA] ..."
  120. wait key
  121. goto INICIO
  122. _EXCLUI
  123. pos 20 16;insert "Excluir ... : ",,29,p1,i0,,p0,i2
  124. attrib i
  125. if i==""
  126.    goto INICIO
  127. else
  128. a=${path}
  129.    grep -a -o ${a}jog.lt ${i}
  130.    attrib i
  131. fi
  132. cup;cline
  133. a=${path}
  134. pos 12 18;lgrep -o ${a}jog.lt,${i};attrib i
  135. pos 12 18;echo ${i}
  136. pos 12 16;insert "____ Confirma exclusão [ 1 ] Sim, [ 2 ] Não ____ ",,4,p1,i0,,p0,i2
  137. attrib a
  138. if a=2
  139.    goto INICIO
  140. fi
  141. if a=1
  142. a=${path}
  143.    cut line ${a}jog.lt,${i}
  144.    pos 12 18
  145.    echo "Exclusão com sucesso                  "
  146.    sleep 100
  147.    goto INICIO
  148. else
  149.    goto INICIO
  150. fi
  151. _IMPRIMI
  152. a=${path}
  153. pos 56 16;paper 1;echo "    "
  154. paper 0
  155. pos 21 16
  156. lp ${a}jog.lt,60,6
  157. goto INICIO
  158. _ORDENA
  159. pos 30 16;cline
  160. border -c " Ordenando... "
  161. a=${path}
  162. sort ${a}jog.lt >> ram:jog.lt0
  163. rm ${a}jog.lt;mv ram:jog.lt0 ${a}jog.lt
  164. goto INICIO
  165.